BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/P/Portfolio.cpt/Home/background_26436.txt

Text File | 1988-01-24 | 30KB | 1,297 lines

-- background: 26436 from stack: in
-- bmap block id: 13604
-- flags: 4000
-- background id: 0
-- name: A-Z & Folders
----- HyperTalk script -----
------------------------------------------------------------------------
-- IDLE
------------------------------------------------------------------------

On idle
  Put the time into background field "Time"
  Put the size of this stack into background field "StackSize"
  Put the freesize of this stack into background field "Wasted"
  Pass idle
End idle

------------------------------------------------------------------------
-- OPEN CARD
------------------------------------------------------------------------

On OpenCard
  Global Action
  Put "Launch" into action
  Show MenuBar
  Hide message window
  Put the time into background field "Time"
  Put the abbreviated date into background field "Date"
  Put the size of this stack into background field "StackSize"
  Put the freesize of this stack into background field "Wasted"
  If background field 1 = empty then
    Get line 1 of background field 1 of previous card
    Put it into background field 1
  End if
  If background field 2 = empty then
    Get item 1 of background field 2 of previous card
    Add 1 to it
    Put it into background field 2
  End if
End OpenCard

------------------------------------------------------------------------
-- MOUSEWITHIN + OPTION KEY
------------------------------------------------------------------------

On MouseWithin
  If the OptionKey is down then
    Put the MouseLoc into MyPlace
    Global ShortName
    Set LockScreen to true
    Set UserLevel to 5
    Choose button tool
    Click at MyPlace
    Get short name of the target
    Put it into ShortName
    If it = "Portfolio" or it = "System" or it = "Add..."or it = "About" or it = "Prev" or it = "Next" or it = "Back" or it = "A" or it = "B" or it = "C" or it = "D" or it = "E" or it = "F" or it = "G" or it = "H" or it = "I" or it = "J" or it = "K" or it = "L" or it = "M" or it = "N" or it = "O" or it = "P" or it = "Q" or it = "R" or it = "S" or it = "T" or it = "U" or it = "V" or it = "W" or it = "X" or it = "Y" or it = "Z" or it = "Compact" or it = "Page Number" then
      Beep 2
      Answer "Sorry, that button is protected!" with "OK"
      Choose browse tool
      Set LockScreen to false
      Exit MouseWithin
    End if
    Show message window at 20,302
    Put "Current Selection - "
    Put it into word 7 of message window
    -- NAME OF BACKGROUND FIELD IS ( LIST )
    Put background field list into TheList
    DoList "Select","Cancel",TheList,one
    Get the result
    ----------------------------------------------------------------------
    -- REMOVE BUTTON
    ----------------------------------------------------------------------
    If item 2 of it = "Remove From Card" then
      RemoveButton
      Exit MouseWithin
    End if
    ----------------------------------------------------------------------
    -- RENAME BUTTON
    ----------------------------------------------------------------------
    If item 2 of it ="Rename On Card & Disk" then
      RenameFileButton
      Exit MouseWithin
    End if
    ----------------------------------------------------------------------
    -- DELETE BUTTON
    ----------------------------------------------------------------------
    If item 2 of it ="Remove From Card & Disk" then
      DeleteFileButton
      Exit MouseWithin
    End if

    Choose browse tool
    Put""
    Set LockScreen to false
    Hide message window

  End if
End MouseWithin

------------------------------------------------------------------------
-- MOVE BUTTON
------------------------------------------------------------------------

On MouseDown
  If the CommandKey is down then
    Global Action
    Put "Abort" into action
    Get short name of the target
    If it = "Portfolio" or it = "System" or it = "Add..."or it = "About" or it = "Prev" or it = "Next" or it = "Back" or it = "A" or it = "B" or it = "C" or it = "D" or it = "E" or it = "F" or it = "G" or it = "H" or it = "I" or it = "J" or it = "K" or it = "L" or it = "M" or it = "N" or it = "O" or it = "P" or it = "Q" or it = "R" or it = "S" or it = "T" or it = "U" or it = "V" or it = "W" or it = "X" or it = "Y" or it = "Z" or it = "Compact" or it = "Page Number" then
      Beep 2
      Answer "Select a button or that button is protected!" with "OK"
      Choose browse tool
      Set LockScreen to false
      Exit MouseDown
    End if
    Choose button tool
    Repeat until the mouse is up
      Set the loc of target to the MouseLoc
    End repeat
    Choose browse tool
    Hide message window
  End if
End MouseDown




-- part 52 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=489 top=34 right=47 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: A
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  visual effect barn door open
  go to card id 26629
end mouseUp




-- part 53 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=489 top=46 right=58 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: B
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  visual effect barn door open
  go to card id 3863
end mouseUp




-- part 54 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=489 top=57 right=69 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: C
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  visual effect barn door open
  go to card id 4915
end mouseUp




-- part 55 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=489 top=68 right=80 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: D
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  visual effect barn door open
  go to card id 6228
end mouseUp




-- part 57 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=489 top=79 right=91 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: E
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  visual effect barn door open
  go to card id 6788
end mouseUp




-- part 58 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=489 top=90 right=102 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: F
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  visual effect barn door open
  go to card id 7102
end mouseUp




-- part 59 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=489 top=101 right=113 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: G
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  visual effect barn door open
  go to card id 7447
end mouseUp




-- part 60 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=489 top=112 right=124 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: H
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  visual effect barn door open
  go to card id 7695
end mouseUp




-- part 61 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=489 top=123 right=135 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: I
----- HyperTalk script -----
On MouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  Visual effect barn door open
  Go to card id 8142
End MouseUp



-- part 62 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=489 top=134 right=146 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: J
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  visual effect barn door open
  go to card id 8255
end mouseUp




-- part 63 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=489 top=145 right=157 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: K
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  visual effect barn door open
  go to card id 8566
end mouseUp




-- part 64 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=489 top=156 right=168 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: L
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  visual effect barn door open
  go to card id 8878
end mouseUp




-- part 65 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=489 top=167 right=180 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: M
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  visual effect barn door open
  go to card id 8984
end mouseUp




-- part 66 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=489 top=179 right=191 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: N
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  visual effect barn door open
  go to card id 9571
end mouseUp




-- part 67 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=489 top=190 right=202 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: O
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  visual effect barn door open
  go to card id 9912
end mouseUp




-- part 68 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=489 top=200 right=212 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: P
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  visual effect barn door open
  go to card id 10366
end mouseUp




-- part 69 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=489 top=211 right=223 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Q
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  visual effect barn door open
  go to card id 10817
end mouseUp




-- part 70 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=489 top=222 right=234 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: R
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  visual effect barn door open
  go to card id 11084
end mouseUp




-- part 71 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=489 top=233 right=245 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: S
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  visual effect barn door open
  go to card id 11472
end mouseUp




-- part 72 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=489 top=244 right=256 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: T
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  visual effect barn door open
  go to card id 11586
end mouseUp




-- part 73 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=489 top=255 right=267 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: U
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  visual effect barn door open
  go to card id 11818
end mouseUp




-- part 74 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=489 top=266 right=278 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: V
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  visual effect barn door open
  go to card id 12215
end mouseUp




-- part 75 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=489 top=277 right=289 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: W
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  visual effect barn door open
  go to card id 12364
end mouseUp




-- part 76 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=489 top=288 right=300 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: X
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  visual effect barn door open
  go to card id 12614
end mouseUp




-- part 77 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=489 top=299 right=311 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Y
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  visual effect barn door open
  go to card id 13003
end mouseUp




-- part 78 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=489 top=310 right=323 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Z
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  visual effect barn door open
  go to card id 13155
end mouseUp




-- part 84 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=66 top=298 right=319 bottom=91
-- title width / last selected line: 0
-- icon id / first selected line: 16560 / 16560
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  visual effect barn door open
  go to next card
end mouseUp



-- part 85 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=38 top=298 right=319 bottom=63
-- title width / last selected line: 0
-- icon id / first selected line: 15420 / 15420
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  visual effect barn door open
  go to previous card
end mouseUp



-- part 98 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=38 top=114 right=151 bottom=91
-- title width / last selected line: 0
-- icon id / first selected line: 27056 / 27056
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add...
----- HyperTalk script -----
On MouseDown
  Put the MouseLoc into MyPlace
  Put item 1 of myPlace + 5 into horiz
  Put item 2 of myPlace - 5 into vert
  Get PopUpMenu("Add HyperCard Stack...;-;Add Application...;"& "-;Add Document...;-;Add Desk Accessory...",0, vert, horiz)
  Set hilite of background button "Add..." to false
  If it < "1" then
    Exit MouseDown
  End if
  Show MenuBar
  Set LockScreen to true
  Set the UserLevel to 5
  ----------------------------------------------------------------------
  -- ADD HYPERCARD STACK
  ----------------------------------------------------------------------
  If it = "1" then
    AddStack
  End if
  ----------------------------------------------------------------------
  -- ADD APPLICATION
  ----------------------------------------------------------------------
  If it = "3" then
    AddApplication
  End if
  ----------------------------------------------------------------------
  -- ADD DOCUMENT
  ----------------------------------------------------------------------
  If it = "5" then
    AddDocument
  End if
  ----------------------------------------------------------------------
  -- ADD DA
  ----------------------------------------------------------------------
  If it = "7" then
    AddDA
  End if
End MouseDown




-- part 101 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=238 top=32 right=45 bottom=411
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Card:


-- part 102 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=455 top=32 right=45 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Page:


-- part 105 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=238 top=46 right=59 bottom=339
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: StackSize


-- part 106 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=238 top=60 right=73 bottom=339
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Wasted


-- part 107 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=387 top=46 right=59 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Time


-- part 108 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=387 top=60 right=73 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Date


-- part 111 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=101 top=60 right=73 bottom=177
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Compact
----- HyperTalk script -----
on mouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  if freesize of this stack > 0 then
    doMenu Compact Stack
  end if
end mouseUp



-- part 112 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=38 top=74 right=111 bottom=91
-- title width / last selected line: 0
-- icon id / first selected line: 26405 / 26405
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: System
----- HyperTalk script -----
On MouseDown
  Put the MouseLoc into MyPlace
  Put item 1 of myPlace + 5 into horiz
  Put item 2 of myPlace - 5 into vert
  Get PopUpMenu("Launch Application...;-;Delete A File...;"& "Rename A File...;-;Quit Portfolio;-;Shut Down",0, vert, horiz)
  Set hilite of background button "System" to false
  If it < "1" then
    Exit MouseDown
  End if
  ----------------------------------------------------------------------
  -- DIRECT LAUNCH
  ----------------------------------------------------------------------
  If it = "1" then
    DirectLaunch
  End if
  ----------------------------------------------------------------------
  -- DELETE A FILE
  ----------------------------------------------------------------------
  If it = "3" then
    TrashAny
  End if
  ----------------------------------------------------------------------
  -- RENAME A FILE
  ----------------------------------------------------------------------
  If it = "4" then
    RenameAny
  End if
  ----------------------------------------------------------------------
  -- QUIT
  ----------------------------------------------------------------------
  If it = "6" then
    DoMenu Quit HyperCard
  End if
  ----------------------------------------------------------------------
  -- SHUT DOWN
  ----------------------------------------------------------------------
  If it = "8" then
    ShutOff
  End if
End MouseDown





-- part 115 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=38 top=34 right=71 bottom=91
-- title width / last selected line: 0
-- icon id / first selected line: 3479 / 3479
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Portfolio
----- HyperTalk script -----
On MouseDown
  Put the MouseLoc into MyPlace
  Put item 1 of MyPlace + 5 into horiz
  Put item 2 of MyPlace - 5 into vert
  Get PopUpMenu("Portfolio \ Home Card;-;"& "User Preferences...;PathWay Structures...;-;Scan All Cards...;-;"& "Accounting;Communications;Database Management;"& "Desktop Publishing;Graphics;Ideas;Music \ Sounds;SpreadSheets;"& "Utilities;Word Processing",0, vert, horiz)
  Set hilite of background button "Portfolio" to false
  If it < "1" then
    Exit MouseDown
  End if
  ----------------------------------------------------------------------
  -- HOME CARD
  ----------------------------------------------------------------------
  If it = 1 then
    Visual effect barn door open
    Go to card id 5341
  End if
  ----------------------------------------------------------------------
  -- USER PREFERENCES
  ----------------------------------------------------------------------
  If it = 3 then
    Visual effect barn door open
    Go to card id 3012
  End if
  ----------------------------------------------------------------------
  -- PATHWAY STRUCTURES
  ----------------------------------------------------------------------
  If it = 4 then
    Visual effect barn door open
    Go to card id 5437
  End if
  ----------------------------------------------------------------------
  -- SCAN ALL CARDS
  ----------------------------------------------------------------------
  If it = 6 then
    ScanCards
  End if
  ----------------------------------------------------------------------
  -- ACCOUNTING
  ----------------------------------------------------------------------
  If it = 8 then
    Visual effect barn door open
    Go to card id 13370
  End if
  ----------------------------------------------------------------------
  -- COMMUNICATIONS
  ----------------------------------------------------------------------
  If it = 9 then
    Visual effect barn door open
    Go to card id 13960
  End if
  ----------------------------------------------------------------------
  -- DATABASE MANAGEMENT
  ----------------------------------------------------------------------
  If it = 10 then
    Visual effect barn door open
    Go to card id 4691
  End if
  ----------------------------------------------------------------------
  -- DESKTOP PUBLISHING
  ----------------------------------------------------------------------
  If it = 11 then
    Visual effect barn door open
    Go to card id 16794
  End if
  ----------------------------------------------------------------------
  -- GRAPHICS
  ----------------------------------------------------------------------
  If it = 12 then
    Visual effect barn door open
    Go to card id 16898
  End if
  ----------------------------------------------------------------------
  -- IDEAS
  ----------------------------------------------------------------------
  If it = 13 then
    Visual effect barn door open
    Go to card id 17208
  End if
  ----------------------------------------------------------------------
  -- MUSIC \ SOUNDS
  ----------------------------------------------------------------------
  If it = 14 then
    Visual effect barn door open
    Go to card id 17559
  End if
  ----------------------------------------------------------------------
  -- SPREADSHEETS
  ----------------------------------------------------------------------
  If it = 15 then
    Visual effect barn door open
    Go to card id 17817
  End if
  ----------------------------------------------------------------------
  -- UTILITIES
  ----------------------------------------------------------------------
  If it = 16 then
    Visual effect barn door open
    Go to card id 18051
  End if
  ----------------------------------------------------------------------
  -- WORD PROCESSING
  ----------------------------------------------------------------------
  If it = 17 then
    Visual effect barn door open
    Go to card id 18344
  End if
End MouseDown




-- part 114 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=19 top=28 right=323 bottom=101
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: List


-- part 116 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=38 top=234 right=271 bottom=91
-- title width / last selected line: 0
-- icon id / first selected line: 21060 / 21060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About
----- HyperTalk script -----
On MouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  Beep
  Answer "You Have A Question About..." with "Portfolio" or "Buttons" or "Cancel"
  If it = "Buttons" then
    Visual effect barn door open
    Go to card Id 6641
    Exit MouseUp
  End if
  If it = "Cancel" then exit MouseUp
  DoMenu First
  Show card field 4
  Show button OK
End MouseUp



-- part 117 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=38 top=274 right=295 bottom=91
-- title width / last selected line: 0
-- icon id / first selected line: 6720 / 6720
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Back
----- HyperTalk script -----
On MouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  Visual effect barn door open
  DoMenu Back
End MouseUp



-- part 119 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=410 top=32 right=45 bottom=438
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Page Number
----- HyperTalk script -----
On MouseUp
  Global Action
  If Action = "Abort" then
    Put "Launch" into action
    Exit MouseUp
  End if
  Ask "Change page number to:"
  If it is not empty then
    Put it into background field "Page:"
  End if
End MouseUp